object ZdEdit: TZdEdit
  Left = 288
  Top = 144
  ActiveControl = DBGridEh2
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25945#26448#24449#35746#24405#20837
  ClientHeight = 468
  ClientWidth = 657
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label2: TLabel
    Left = 295
    Top = 403
    Width = 36
    Height = 14
    Hint = '99'
    Caption = #25805#20316#21592
    FocusControl = DBEdit2
  end
  object Label1: TLabel
    Left = 501
    Top = 403
    Width = 48
    Height = 14
    Hint = '99'
    Caption = #25191#34892#23395#24230
    FocusControl = DBEdit1
  end
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 657
    Height = 4
    Align = alTop
    Shape = bsTopLine
    ExplicitTop = 26
    ExplicitWidth = 634
  end
  object Bevel2: TBevel
    Left = 0
    Top = 426
    Width = 657
    Height = 5
    Align = alBottom
    Shape = bsBottomLine
    ExplicitTop = 390
    ExplicitWidth = 634
  end
  object DBEdit2: TDBEditEh
    Left = 341
    Top = 400
    Width = 144
    Height = 22
    DataField = #25805#20316#21592
    DataSource = DataSource1
    EditButtons = <>
    Enabled = False
    ReadOnly = True
    TabOrder = 0
    Visible = True
  end
  object DBEdit1: TDBEditEh
    Left = 562
    Top = 400
    Width = 88
    Height = 22
    DataField = #25191#34892#23395#24230
    DataSource = DataSource1
    EditButtons = <>
    Enabled = False
    ReadOnly = True
    TabOrder = 1
    Visible = True
  end
  object DBGridEh2: TDBGridEh
    Left = 5
    Top = 8
    Width = 647
    Height = 386
    Hint = '99'
    AllowedOperations = [alopUpdateEh, alopDeleteEh]
    DataSource = DataSource1
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    FooterRowCount = 1
    OddRowColor = clInfoBk
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight, dghDialogFind]
    PopupMenu = PopupMenu1
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = #24207#21495
        Footers = <>
        Width = 34
      end
      item
        EditButtons = <>
        FieldName = #25945#26448#32534#21495
        Footers = <>
        Width = 55
      end
      item
        EditButtons = <>
        FieldName = #25945#26448#21517#31216
        Footers = <>
        Width = 158
      end
      item
        EditButtons = <>
        FieldName = #25945#26448#20998#31867
        Footers = <>
        Width = 48
      end
      item
        EditButtons = <>
        FieldName = #21333#20215
        Footers = <>
        Width = 51
      end
      item
        EditButtons = <>
        FieldName = #25968#37327
        Footers = <>
        Width = 44
      end
      item
        EditButtons = <>
        FieldName = #32534#33879#32773
        Footers = <>
        Width = 71
      end
      item
        EditButtons = <>
        FieldName = #20986#29256#31038
        Footers = <>
        Width = 115
      end
      item
        EditButtons = <>
        FieldName = #20986#29256#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #29256#26412
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'ISBN'
        Footers = <>
        Width = 53
      end>
  end
  object Panel3: TPanel
    Left = 0
    Top = 431
    Width = 657
    Height = 37
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object lbl_Record: TLabel
      Left = 6
      Top = 6
      Width = 84
      Height = 14
      Caption = #26412#23395#24230#35746#21333#25968#65306
    end
    object Label3: TLabel
      Left = 104
      Top = 14
      Width = 48
      Height = 14
      Hint = '99'
      Caption = #24449#35746#21333#20301
    end
    object btn_SaveAdd: TBitBtn
      Left = 367
      Top = 6
      Width = 91
      Height = 25
      Hint = #20445#23384#24182#26032#22686#19968#24352#25945#26448#37319#36141#21333
      Caption = #20445#23384#26032#22686
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btn_SaveAddClick
    end
    object btn_OK: TBitBtn
      Left = 464
      Top = 6
      Width = 91
      Height = 25
      Hint = #20445#23384#24403#21069#24449#35746#21333
      Caption = #30830#23450'[&O]'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btn_OKClick
    end
    object btn_Cancel: TBitBtn
      Left = 560
      Top = 6
      Width = 91
      Height = 25
      Caption = #21462#28040'[&C]'
      TabOrder = 2
      OnClick = btn_CancelClick
    end
    object cb_Zddw: TDBComboBoxEh
      Left = 158
      Top = 6
      Width = 193
      Height = 22
      Hint = '99'
      DataField = #23458#25143'ID'
      DataSource = DataSource1
      EditButtons = <>
      TabOrder = 3
      Visible = True
      OnChange = cb_ZddwChange
    end
  end
  object LabeledEdit1: TLabeledEdit
    Left = 99
    Top = 400
    Width = 98
    Height = 22
    CharCase = ecUpperCase
    Color = clInfoBk
    EditLabel.Width = 78
    EditLabel.Height = 14
    EditLabel.Caption = #25945#26448#26597#35810#30721#65306
    EditLabel.Font.Charset = DEFAULT_CHARSET
    EditLabel.Font.Color = clMaroon
    EditLabel.Font.Height = -12
    EditLabel.Font.Name = 'Tahoma'
    EditLabel.Font.Style = [fsBold]
    EditLabel.ParentFont = False
    LabelPosition = lpLeft
    MaxLength = 4
    TabOrder = 4
    OnChange = LabeledEdit1Change
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    CommandText = 'select * from view_'#25945#26448#24449#35746#34920
    Params = <>
    ProviderName = 'DSP_Query'
    RemoteServer = DM.SoapConnection1
    BeforePost = ClientDataSet1BeforePost
    OnCalcFields = ClientDataSet1CalcFields
    OnNewRecord = ClientDataSet1NewRecord
    Left = 224
    Top = 232
    object ClientDataSet1Field: TIntegerField
      FieldKind = fkCalculated
      FieldName = #24207#21495
      Calculated = True
    end
    object ClientDataSet1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ClientDataSet1WideStringField: TWideStringField
      FieldName = #25191#34892#23395#24230
      Size = 6
    end
    object ClientDataSet1ID2: TWideStringField
      FieldName = #23458#25143'ID'
      Size = 15
    end
    object ClientDataSet1WideStringField2: TWideStringField
      FieldName = #23458#25143#21517#31216
      Size = 30
    end
    object ClientDataSet1WideStringField3: TWideStringField
      FieldName = #23458#25143#31867#22411
      Size = 4
    end
    object ClientDataSet1WideStringField4: TWideStringField
      FieldName = #35838#31243#21517#31216
    end
    object ClientDataSet1WideStringField5: TWideStringField
      FieldName = #25945#26448#31867#22411
      Size = 6
    end
    object ClientDataSet1WideStringField6: TWideStringField
      FieldName = #35838#31243#31867#21035
      Size = 4
    end
    object ClientDataSet1WideStringField7: TWideStringField
      FieldName = #35838#31243#24615#36136
      Size = 4
    end
    object ClientDataSet1ID3: TIntegerField
      FieldName = #25945#26448'ID'
    end
    object ClientDataSet1SmallintField: TSmallintField
      FieldName = #25968#37327
    end
    object ClientDataSet1IP: TWideStringField
      FieldName = 'IP'
      Size = 15
    end
    object ClientDataSet1ActionTime: TDateTimeField
      FieldName = 'ActionTime'
    end
    object ClientDataSet1WideStringField8: TWideStringField
      FieldName = #25805#20316#21592
      Size = 15
    end
    object ClientDataSet1WideStringField9: TWideStringField
      FieldName = #25945#26448#32534#21495
      Size = 6
    end
    object ClientDataSet1WideStringField10: TWideStringField
      FieldName = #26597#35810#30721
      Size = 4
    end
    object ClientDataSet1WideStringField11: TWideStringField
      FieldName = #25945#26448#21517#31216
      Size = 30
    end
    object ClientDataSet1WideStringField12: TWideStringField
      FieldName = #32534#33879#32773
    end
    object ClientDataSet1WideStringField13: TWideStringField
      FieldName = #20986#29256#31038
      Size = 24
    end
    object ClientDataSet1WideStringField14: TWideStringField
      FieldName = #20986#29256#26085#26399
      Size = 10
    end
    object ClientDataSet1WideStringField15: TWideStringField
      FieldName = #29256#26412
      Size = 5
    end
    object ClientDataSet1BCDField: TBCDField
      FieldName = #21333#20215
      Precision = 19
      Size = 2
    end
    object ClientDataSet1WideStringField16: TWideStringField
      FieldName = #25945#26448#20998#31867
      Size = 5
    end
    object ClientDataSet1Expr1: TWideStringField
      FieldName = 'Expr1'
      Size = 6
    end
    object ClientDataSet1ISBN: TWideStringField
      FieldName = 'ISBN'
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 224
    Top = 264
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    Top = 240
    object N1: TMenuItem
      Caption = #26032#22686
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500
      OnClick = N2Click
    end
  end
end
